Capitol Hill/Capitol Hill (1993)(The Software Toolworks).iso/support/shardcst.mmm/meta.txt

Text File | 1993-09-19 | 17.1 KB | 66 lines

Name
----
Shared Cast+CAPITOL HILL:special mac files for windows:

Strings
------
Macromedia Director

stxt
----
--¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥
Factory Array
  --¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥
Factory aSpcAlert
method mNew
  instance myList, numOfItems ,myState
  me(mSetActive,FALSE)
end mNew

-- *******************************************************
-- mBuildAlertList: builds and inits a list of messages for
-- the Alert items. These are phone, vote and mail Alerts
method mBuildAlertList maxItems
  set numOfItems = 1
  put LinkedItem(mNew ,numOfItems) into myList
  put myList into prevItem

  repeat while (numOfItems < maxItems)
    set numOfItems = numOfItems +1
    put LinkedItem(mNew ,numOfItems) into nextItem
    nextItem(mInsertAfter,prevItem)
    put nextitem into prevItem
  end repeat
end mBuildAlertList


-- ******************************************************
-- mGetNextMsg: pulls a message from the list, randomly
-- and returns it to the caller. Deletes the message from the
-- list so that it will not be pulled again
method mGetNextMsg
  if (numOfItems > 0) then
    put random(numOfItems) into thisItem
    set count = 1
    put myList into foundItem
    repeat while (count < thisItem)
      put foundItem(mGetNext) into foundItem
      set count = count + 1
    end repeat
    set numOfItems = numOfItems - 1
    put foundItem(mGetContent) into thisContent
    if (foundItem = myList) then
      -- points to the frist item and therefore needs special treatment
      put myList(mGetNext) into myList
    end if
    --me(mSetActive FALSE)
    foundItem(mRemoveItem)
    foundItem(mDispose)
    return thisContent
  else
    return -1
  end if
end mGetNextMsg

-- *********************************************************
-- mGetNumOfMsg: This is a simple method that returns the
-- total number of messages currently in the list
-- The list is un-effected
method mGetNumOfMsg
  return numOfItems
end mGetNumOfMsg

-- ********************************************************
-- mSetActive: This method sets the instance var isActive to
-- the state specified by the parameter aState
-- The list is un-effected
method mSetActive isActive
  set myState = isActive
end mSetActive

-- **********************************************************
-- mGetActive: This method returns the instance var isActive
--
-- The list is un-effected
method mGetActive
  return myState
end mGetActive

--¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥
Factory LinkedItem
method mNew theContent
  instance prevItem, nextItem , myContent
  set myContent = theContent
  set prevItem = me
  set nextItem = me
end mNew

-- *********************************************************
-- mInsertAfter: This method inserts an item into the linked list
-- after the list item aItem
-- eg: instert aNEWITEM after aitem2 in the list aItem1->aItem2->aItem3
--     = aItem1->aItem2->aNEWITEM->aItem3
--------------------------------------------------------------------------
method mInsertAfter aItem
  -- We need to break the link between aItem and it's nexts
  -- and then make it point to us
  me(mSetNext,aItem(mGetNext))
  aItem(mSetNext,me)
  -- Then we want to make aItem our prev
  -- and then make our nextItem point to us
  me(mSetPrev,aItem)
  nextItem(mSetPrev,me)
end mInsertAfter

-- **********************************************************
-- mGetNext: This method returns the item that me is linked to next
--------------------------------------------------------------------------
method mGetNext
  return nextItem
end mGetNext

-- ***********************************************************
-- mSetNext: This method makes the item that me is next linked to  = aitem
--------------------------------------------------------------------------
method mSetNext aItem
  set nextItem = aItem
end mGetNext

-- ************************************************************
-- mGetPrev: This method returns the item that me is linked to prev
--------------------------------------------------------------------------
method mGetPrev
  return prevItem
end mGetPrev

-- *************************************************************
-- mSetPrev:  This method makes the item that me is prev linked to  = aitem
--------------------------------------------------------------------------
method mSetPrev aItem
  set prevItem = aItem
end mSetPrev

-- ************************************************************
-- mRemoveItem:  Remove me from the list, form a link between the items
-- pointed to by me.next and me.prev
--------------------------------------------------------------------------
method mRemoveItem
  -- Break the link with the previous and next items
  prevItem(mSetNext,nextItem)
  nextItem(mSetPrev,prevItem)
end mRemoveItem

-- ******************************************************
-- mGetContent:  Return the content of this container
--------------------------------------------------------------------------
method mGetContent
  return myContent
end mGetContent

--¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥
Factory mailBox
method  mNew
end mNew

-- ******************************************************
-- mGetMail: Gets a letter (disc Text file) and puts the text
-- into the myMailBox (text cast member).
--------------------------------------------------------------------------
method mGetMail letter , myMailBox
  global repfirst,repname,repstate
  put "CAPITOL HILL:Support:Mail:L"&letter into theFile
  put FileIO(mNew,"read",theFile) into myFile
  put "" into aChar
  put "" into myLetter
  repeat while not(aChar contains "%")
    --showLocals
    set myLetter = myLetter & aChar
    put myFile(mReadLine) into aChar

  end repeat
  put myLetter into field myMailBox
  if  ( myLetter contains "(Rep)") then
      put offset("(",myLetter) into repmarker
       if (repname <> "" ) then

           delete char repmarker of myLetter
           delete char repmarker of myLetter
           delete char repmarker of myLetter
           delete char repmarker of myLetter
           delete char repmarker of myLetter
           put repfirst&&repname before char repmarker of myLetter

           put myLetter into field myMailBox
       end if
   end if
   if  ( myLetter contains "(Rep)") then
      put offset("(",myLetter) into repmarker
       if (repname <> "" ) then

           delete char repmarker of myLetter
           delete char repmarker of myLetter
           delete char repmarker of myLetter
           delete char repmarker of myLetter
           delete char repmarker of myLetter
           put repname before char repmarker of myLetter

           put myLetter into field myMailBox
       end if
   end if

  set the textAlign of field myMailBox to "left"
  set the textSize of field myMailBox to 10
  set the textStyle of field myMailBox to "plain"
  myFile(mDispose)
end mGetMail

Factory textReader
method mNew
  instance myTextCast1, myTextCast2, myTextCast3,myTextCast4,myTextCast5,Â
           myTC1FontSz,myTC2FontSz,myTC3FontSz,myTC4FontSz,myTC5FontSz ,Â
           myTC1FontStly,myTC2FontStly,myTC3FontStly,myTC4FontStly,myTC5FontStly,Â
           myTC1FontJst,myTC2FontJst,myTC3FontJst,myTC4FontJst,myTC5FontJst,Â
           myBkStr1, myBkStr2, myBkStr3,myBkStr4,myBkStr5

end mNew

method mClearTxtCast

end mClearTxtCast

method mSetTxtCast  aTC1, aTC2 , aTC3,aTC4,aTC5
    set myTextCast1 = aTC1
    set myTextCast2 = aTC2
    set myTextCast3 = aTC3
   set myTextCast4 = aTC4
   set myTextCast5 = aTC5
  end mSetTxtCast

method mFormat  whichTC, aFontSz, aFontStly, aFontJst
  if (whichTC = myTextCast1) then
    put aFontSz into myTC1FontSz
    put aFontStly into myTC1FontStly
    put aFontJst into myTC1FontJst
  else
    if (whichTC = myTextCast2) then
      put aFontSz into myTC2FontSz
      put aFontStly into myTC2FontStly
      put aFontJst into myTC2FontJst
    else
      if (whichTC = myTextCast3) then
        put aFontSz into myTC3FontSz
        put aFontStly into myTC3FontStly
        put aFontJst into myTC3FontJst
      else
        if (whichTC = myTextCast4) then
          put aFontSz into myTC4FontSz
          put aFontStly into myTC4FontStly
          put aFontJst into myTC4FontJst
        else
          if (whichTC = myTextCast5) then
            put aFontSz into myTC5FontSz
            put aFontStly into myTC5FontStly
            put aFontJst into myTC5FontJst
          end if
        end if
      end if
    end if
  end if
end mFormat

method mSetBkStrs  aBkStr1 , aBkStr2, aBkStr3,aBkStr4,aBkStr5
  put aBkStr1 into myBkStr1
  put aBkStr2 into myBkStr2
  put aBkStr3 into myBkStr3
  put aBkStr4 into myBkStr4
  put aBkStr5 into myBkStr5
end mSetBkStrs

method mGetTxt  fileName

  put "CAPITOL HILL:Support:"&fileName into theFile
  put FileIO(mNew,"read",theFile) into myFile
  -- first get the header
  if objectp(myFile) then
    put "" into aChar
    put "" into myHeader

    if (myTextCast1 <> 0) then
      put me(mGetTxtBlk myFile , myTextCast1 , myBkStr1,myBkStr5)  into theEnd
      set the textAlign of field myTextCast1 to myTC1FontJst
      set the textSize of field myTextCast1 to myTC1FontSz
      set the textStyle of field myTextCast1 to myTC1FontStly

      if  ((myTextCast2 <> 0) and not(theEnd)) then
        put me(mGetTxtBlk  myFile , myTextCast2 , myBkStr2,myBkStr5) into theEnd
        set the textAlign of field myTextCast2 to myTC2FontJst
        set the textSize of field myTextCast2 to myTC2FontSz
        set the textStyle of field myTextCast2 to myTC2FontStly

        if  ((myTextCast3 <> 0) and not(theEnd)) then
          put me(mGetTxtBlk  myFile , myTextCast3 , myBkStr3,myBkStr5)  into theEnd
          set the textAlign of field myTextCast3 to myTC3FontJst
          set the textSize of field myTextCast3 to myTC3FontSz
          set the textStyle of field myTextCast3 to myTC3FontStly

          if ((myTextCast4 <> 0) and not(theEnd) ) then
            put me(mGetTxtBlk myFile , myTextCast4 , myBkStr4,myBkStr5) into theEnd
            set the textAlign of field myTextCast4 to myTC4FontJst
            set the textSize of field myTextCast4 to myTC4FontSz
            set the textStyle of field myTextCast4 to myTC4FontStly

            if  ((myTextCast5 <> 0) and not(theEnd) ) then
              put me(mGetTxtBlk myFile , myTextCast5 , myBkStr5,myBkStr5) into theEnd
              set the textAlign of field myTextCast5 to myTC5FontJst
              set the textSize of field myTextCast5 to myTC5FontSz
              set the textStyle of field myTextCast5 to myTC5FontStly
            end if
          end if
        end if
      end if
    end if
  else
    put "File Error,File Missing" into cast aHeaderCast
    put "If you copied the program to a different media,Â
         You must copy all files and folders" into cast aBodyCast
  end if
  myFile(mDispose)
end mGetTxt

method mGetTxtBlk myFile , aTxtCast , aBKpt,EOFBkpt
  put "" into aChar
  put "" into myBody
  repeat while not(aChar contains aBKpt)
    set myBody = myBody & aChar
    put myFile(mReadLine) into aChar
  end repeat
  put myBody into cast aTxtCast
  if (aChar contains EOFBkpt) then
      return TRUE
  else
      return FALSE
  end if
end mGetTxtBlk
2
free bytes =
H. Res. 396: FURTHER DISCLOSURE OF HOUSE BANK ABUSES
To disclose the name of any member of the House who wrote a check exceeding his balance at the House Bank.

The resolution would publicly name each member who wrote checks with insufficient funds and the number of checks written. The intent of the resolution is to let voters know which Representatives broke banking policy.
Yea: 426    Nay: 1
---------------------------------------------------------------
--This is the main AlertIcon handler. It will randomly select
-- one of the message Icons and place it on the display
-- If a list is empty then we will do nothing
-- 6/11/93:L.Tietz
-- Rev 1, 11/15/93, change to single alert active at at time only.
-------------------------------------------------------------
macro AlertIcon
  global myVAlertList, myPAlertList ,myMAlertList,mailBox,alertnum

  --if all are currently on screen then there is nothing to do, so exit
  if ( myVAlertList(mGetActive) or Â
       myPAlertList(mGetActive) or Â
       myMAlertList(mGetActive) ) then
    starttimer
    exit
  end if
  -- Next determine what icons (P,V,or M) to display
  -- by the way, if a given list is used up (empty) then do nothing
  set x = alertnum
  if ((x = 1) and (myVAlertList(mGetNumOfMsg) > 0)) then
    Vote
    set AIActive = TRUE
    myVAlertList(mSetActive,TRUE)
  else
    if ((x = 2)  and (myPAlertList(mGetNumOfMsg) > 0)) then
      Phone
      set AIActive = TRUE
      myPAlertList(mSetActive,TRUE)
    else
      if ((x = 3) and (myMAlertList(mGetNumOfMsg) > 0)) then
        Mail
        set AIActive = TRUE
        myMAlertList(mSetActive,TRUE)
      end if
    end if
  end if
  set alertnum=alertnum+1
  if alertnum=4 then set alertnum=1
end AlertIcon


macro Vote
  global myVAlertList, myPAlertList ,myMAlertList,mailBox

  set the locV of sprite 22=437
  set the locH of sprite 22=85
  updatestage
  starttimer
end Vote

macro Phone
  global myVAlertList, myPAlertList ,myMAlertList,mailBox

  set the locV of sprite 23=437
  set the locH of sprite 23=85
  updatestage
  starttimer
end Phone

macro Mail
  global myVAlertList, myPAlertList ,myMAlertList,mailBox

  set the locV of sprite 24=437
  set the locH of sprite 24=85
  updatestage
  starttimer
end Mail

macro votehandler
  global myVAlertList, myPAlertList ,myMAlertList,mailBox,fnum
  puppetsound 0

  set fnum=the frame
  set the locV of sprite 22=10000
  set the type of sprite 22=0
  set the type of sprite 23=0
  set the type of sprite 24=0

  play "alertvote"
  set the type of sprite 22=1
  set the type of sprite 23=1
  set the type of sprite 24=1
  --starttimer

  myVAlertList(mSetActive,FALSE)
end votehandler

macro Phonehandler
  global myVAlertList, myPAlertList ,myMAlertList,mailBox,fnum
  puppetsound 0

  set fnum=the frame
  set the locV of sprite 23=10000
  set the type of sprite 22=0
  set the type of sprite 23=0
  set the type of sprite 24=0

  play "alertphone"
  set the type of sprite 22=1
  set the type of sprite 23=1
  set the type of sprite 24=1
  --starttimer
  myPAlertList(mSetActive,FALSE)
end Phonehandler

macro mailhandler
  global myVAlertList, myPAlertList ,myMAlertList,mailBox,fnum
  puppetsound 0

  set fnum=the frame
  set the locV of sprite 24=10000
  set the type of sprite 22=0
  set the type of sprite 23=0
  set the type of sprite 24=0

  play "alertmail"
  set the type of sprite 22=1
  set the type of sprite 23=1
  set the type of sprite 24=1
  --starttimer
  myMAlertList(mSetActive,FALSE)
end mailhandler

macro backup fname
  puppetsound 0
  puppettransition 23
  --go label(fname)+1
  go fname
end backup
Representative
YOU KNOW

WHERE

vwci
----
1476: PH1CAPITOL HILL:Support:PHONE:PH1AIFF
1477: PH2CAPITOL HILL:Support:PHONE:PH2AIFF
1478: PH3CAPITOL HILL:Support:PHONE:PH3AIFF
1479: PH4CAPITOL HILL:Support:PHONE:PH4AIFF
1480: PH5CAPITOL HILL:Support:PHONE:PH5AIFF
1481: PH6CAPITOL HILL:Support:PHONE:PH6AIFF
1482: PH7CAPITOL HILL:Support:PHONE:PH7AIFF
1483: PH8CAPITOL HILL:Support:PHONE:PH8AIFF
1484: PH9CAPITOL HILL:Support:PHONE:PH9AIFF
1485: PH10CAPITOL HILL:Support:PHONE:PH10AIFF
1486: PH11CAPITOL HILL:Support:PHONE:PH11AIFF
1487: PH12CAPITOL HILL:Support:PHONE:PH12AIFF
1488: PH13CAPITOL HILL:Support:PHONE:PH13AIFF
1489: PH14CAPITOL HILL:Support:PHONE:PH14AIFF
1490: PH15CAPITOL HILL:Support:PHONE:PH15AIFF
1491: PH16CAPITOL HILL:Support:PHONE:PH16AIFF
1492: PH17CAPITOL HILL:Support:PHONE:PH17AIFF
1498: on mouseUp

end mouseUp
1501: loop
1502: PH18CAPITOL HILL:Support:PHONE:PH18AIFF
1505: Chill2
1508: goback.PICT
1509:     doortitle
1510: on mouseUp
  global backFrame
  put the frame into backFrame
end mouseUpALERT1.PICT
1511: on mouseUp
  global backFrame
  put the frame into backFrame
end mouseUpALERT3.PICT
1512: on mouseUp
  global backFrame
  put the frame into backFrame
end mouseUpALERT2.PICT
1513: click
1514: macslug woolsey.PICTCAPITOL HILL:Support:shareart:
slugwool.PICTPICT
1515: macslugbaker.PICTCAPITOL HILL:Support:shareart:
slugbake.PICTPICT
1516: macslugmich.PICTCAPITOL HILL:Support:shareart:
slugmich.PICTPICT
1517: macslugsmock.PICTCAPITOL HILL:Support:shareart:
slugsmoc.PICTPICT
1518: macslugkauf.PICTCAPITOL HILL:Support:shareart:
slugkauf.PICTPICT
1519: macslugforeign.PICTCAPITOL HILL:Support:shareart:
slugfore.PICTPICT
1520: macslug senate floor.PICTCAPITOL HILL:Support:shareart:
slugsenf.PICTPICT
1521: vidwin1.PICTCAPITOL HILL:Support:shareart:vidwin1.PICTPICT
1522: vidwin2.PICTCAPITOL HILL:Support:shareart:vidwin2.PICTPICT
1523: macslug house floor.PICTCAPITOL HILL:Support:shareart:
slughsef.PICTPICT
1526: YEACLIP.PICT
1527: NAYCLIP.PICT
1528:
PRESCLIP.PICT
1533:
PDA final.10%
1534: SCENIC.PICTCAPITOL HILL:Support:shareart:SCENIC.PICTPICT
1535:     DASH.PICT
1536:     DASH.PICT